﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports EBookGen



'''<summary>
'''Dies ist eine Testklasse für "EBookGenRibbonTest" und soll
'''alle EBookGenRibbonTest Komponententests enthalten.
'''</summary>
<TestClass()> _
Public Class EBookGenRibbonTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Ruft den Testkontext auf, der Informationen
    '''über und Funktionalität für den aktuellen Testlauf bietet, oder legt diesen fest.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Zusätzliche Testattribute"
    '
    'Sie können beim Verfassen Ihrer Tests die folgenden zusätzlichen Attribute verwenden:
    '
    'Mit ClassInitialize führen Sie Code aus, bevor Sie den ersten Test in der Klasse ausführen.
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Mit ClassCleanup führen Sie Code aus, nachdem alle Tests in einer Klasse ausgeführt wurden.
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Mit TestInitialize können Sie vor jedem einzelnen Test Code ausführen.
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Mit TestCleanup können Sie nach jedem einzelnen Test Code ausführen.
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Ein Test für "findWordColorCode"
    '''</summary>
    <TestMethod(), _
     DeploymentItem("EBookGen.dll")> _
    Public Sub findWordColorCodeTest()
        Dim code As Integer = -587137153
        Dim expected As String = "808080"
        Dim actual As String
        actual = EBookGenRibbon_Accessor.findWordColorCode(code)
        Assert.AreEqual(expected, actual)

        Dim code1 As Integer = 0
        Dim expected1 As String = "NO_VALUE"
        Dim actual1 As String
        actual1 = EBookGenRibbon_Accessor.findWordColorCode(code1)
        Assert.AreEqual(expected1, actual1)

        Dim code2 As Integer = 721354753
        Dim expected2 As String = "NO_VALUE"
        Dim actual2 As String
        actual2 = EBookGenRibbon_Accessor.findWordColorCode(code2)
        Assert.AreEqual(expected2, actual2)
    End Sub

    '''<summary>
    '''Ein Test für "rgbIntToHex"
    '''</summary>
    <TestMethod()> _
    Public Sub rgbIntToHexTest()
        Dim int As Integer = -553598977
        Dim expected As String = "173600"
        Dim actual As String
        actual = EBookGenRibbon.rgbIntToHex(int)
        Assert.AreEqual(expected, actual)

        Dim int1 As Integer = 65535
        Dim expected1 As String = "FFFF00" 'gelb
        Dim actual1 As String
        actual1 = EBookGenRibbon.rgbIntToHex(int1)
        Assert.AreEqual(expected1, actual1)

        Dim int2 As Integer = 50000
        Dim expected2 As String = "50C300"
        Dim actual2 As String
        actual2 = EBookGenRibbon.rgbIntToHex(int2)
        Assert.AreEqual(expected2, actual2)
    End Sub

End Class
